2 PRINT"[147][142]"
5 POKE53281,0:POKE53280,12
10 PRINT"[147][151]                                        ";
20 FORA=0TO20:PRINT" [146]                                       ";:NEXT
30 PRINT"                                        ";
40 K=1524:Y=40:X=1:V=40:W=1:T=40:U=1:L=1604:M=1684:N=1444:R=40:S=1:O=1364:P=1284
50 D=40:E=1:F=40:G=1
100 IFPEEK(K+X+Y)=32THENPOKEK,32:K=K+X+Y:POKE54272+K,2:POKEK,87:GOTO150
120 IFPEEK(K+X)<>32THENX=-X:GOTO100
130 IFPEEK(K+Y)<>32THENY=-Y:GOTO100
140 X=-X:Y=-Y
150 IFPEEK(L+V+W)=32THENPOKEL,32:L=L+V+W:POKE54272+L,4:POKEL,87:GOTO200
160 IFPEEK(L+V)<>32THENV=-V:GOTO150
170 IFPEEK(L+W)<>32THENW=-W:GOTO150
180 V=-V:W=-W
200 IFPEEK(M+T+U)=32THENPOKEM,32:M=M+T+U:POKE54272+M,14:POKEM,87:GOTO250
210 IFPEEK(M+T)<>32THENT=-T:GOTO200
220 IFPEEK(M+U)<>32THENU=-U:GOTO200
230 T=-T:U=-U
250 IFPEEK(N+R+S)=32THENPOKEN,32:N=N+R+S:POKE54272+N,5:POKEN,87:GOTO300
260 IFPEEK(N+R)<>32THENR=-R:GOTO250
270 IFPEEK(N+S)<>32THENS=-S:GOTO250
280 R=-R:S=-S
300 IFPEEK(O+D+E)=32THENPOKEO,32:O=O+D+E:POKE54272+O,10:POKEO,87:GOTO350
310 IFPEEK(O+D)<>32THEND=-D:GOTO300
320 IFPEEK(O+E)<>32THENE=-E:GOTO300
330 D=-D:E=-E
350 IFPEEK(P+F+G)=32THENPOKEP,32:P=P+F+G:POKE54272+P,3:POKEP,87:GOTO100
360 IFPEEK(P+F)<>32THENF=-F:GOTO350
370 IFPEEK(P+G)<>32THENG=-G:GOTO350
380 F=-F:G=-G:GOTO100